home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
C64'er
/
C64'er.iso
/
85xx
/
8512.d64
/
straight select
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
143b
|
8 lines
10040 TI$="000000":G=A-1:FORX=A-1TO1STEP-1
10050 F=0:FORY=1TOG
10060 IFA$(Y)<=A$(Y+1)THEN10080
10070 F=Y:SYS49152(A$(Y),A$(Y+1))
10080 NEXTY
10090 G=F:IFF=0THEN50000
10100 NEXTX